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INTRODPCTION 

The Vector MZ operating system, MZOS, was designed specifically for the MZ 
system. It is a file-oriented disk operating system, allowing you to maintain 
and use files on the disk. Also provided are subroutines which may be used by 
the assembly language programmer to interface other software to the disk system, 
or for programs like BASIC to load and save files on the disk. 

MZOS is a copyrighted software product of Vector Graphic Inc. and is meant only 
for use on an MZ or similar system from Vector Graphic. We assume no 
responsibility for unauthorized use. 

This manual reflects version 1.5 of MZOS. 
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FTT.R STRPCI'UKE 

First, it is necessary to understand the layout of the disk and the files on it. 
Thorough understanding of this section will greatly enhance ease of operation of 
this system. 

The disk contains 77 concentric tracks, similar to the grooves in a record. 
Each track is divided into 16 sectors, and each sector contains one page (256 
bytes) of data. Thus the capacity of the entire disk is around 315K bytes. The 
tracks are numbered 0-76, and the sectors 0-15. For our purposes, however, the 
disk should be thought of as 1232 sectors, numbered 0-1231, forgetting about 
tracks altogether. 

The first four sectors on the disk are reserved for the directory. The purpose 
of the directory is to keep track of the files on the disk. There are 64 
entries allowed, therefore you may have as many as 64 files on the disk. Each 
entry in the directory uses 16 bytes. The format of each entry is as follows: 



FILENAME 


ADDRESS 


LENGTH 


TYPE 


START 


VERSION 


1 0-7 f 


8-9 1 


10-11 1 


12 1 


13-14 


1 15 1 



The meanings of each field are as follows: 

FILEHAMK 

An eight-byte field, this contains the name of the file. It may contain any 

printing ascii character, expect spaces, ccmroas, or lower-case letters. 

ADDRESS 

This two-byte field contains the address on the disk where the file begins. 
This address is actually just the sector number of that particular sector. 
Sector 278 would have a disk address, then, of 278. 

LENGTH 

The length of the file is the number of sectors it occupies. 

TTPE 

The type of a file is a special reference to what the file might be used for. A 

file may be of type through 99. Certain file types have already been defined. 

They are: 

Default type unless changed. 

1 Executable machine language program. 

2 BASIC program. 

3 BASIC data file. 

4 Ascii text file. 
5-7 Reserved. 

8 XEK Assembler source file 

9 Reserved. 

Pile types 10-99 are not currently used or reserved, so they can be used for 
special purposes. 
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The start bytes are used to define the loading/starting address for type 1 
(machine language) files. In the case of BASIC files, they're used to define 
the amount of valid data within the file. 

¥EHSION 

This byte is used to define the version or revision of the file. This is used 
by the Memorite II system, but it not implemented other than that. 

The remaining 1228 sectors on the disk are available for files. There is a 
restriction that a file may only be 256 sectors long. This is not unreasonable, 
since it would be rather difficult, to load a file longer that 64K into memory 
anyway. Actually, you may have a file longer then 256 sectors, but you will not 
be able to load, save, or verify it with MZOS. 

A fact to remember is that MZOS does not necessarily access a file when it 
accesses the directory. Create, delete, and similar operations only modify the 
directory, not the actual file. Thus if you accidentally delete a file, you can 
recover it just by creating it with the same addresses as it had before. If you 
need to create a bigger file, you can just delete the old one and then recreate 
it with a greater length and the same starting address. 

Another thing to remember is that MZOS maintains no copies of the directory in 
memory, so you may exchange disks at will. (This is as opposed to, say, CPM.) 
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BIZOS MEMORY lAYOOT 

It is important to know the places in menrary used by MZOS. There are actually 
three separate areas to know about. The first, symbolically called MZOS, is the 
actual operating syst^n and buffer areas. This resides in RAM from 2000-29FF. 
The top of this area is used for system i/o and Is explained later. The second 
area is called MZIO and is a IK prom at address C400-C7PP. This is the second 
2708 on the prom/ram board. It contains all of the disk i/o routines. The 
third area, MZTMP, is an approximately 32-byte block starting at DF40, in the 
ram area of the prom/ram board. This is used for the track table and similar 
important information. 

In addition to the regular area, a 2K area imnffidiately following MZOS (actually 
2A00-31PF) is used for some mass transfer commands to achieve a higher speed. 
Execution of the IN, DT, CF, CD, or CO commands will utilize this area, thus 
overwriting whatever is there. 

Last but not least, there are several entry points to the system which you 
should know about. These, as well as the disk subroutines, are covered in 
appendix A. 
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Mzos amsohE cpmmamds 

Following is an explanation of MZOS commands and their usage. The following 
conventions are used in this explanations When something is enclosed in 
parentheses, e.g. (address), that argument is optional. Something in 
angle-brackets, e.g. <address>, means that you should substitute a valid 
argument; in this example, you should type an address. Also, all arguments are 
in decimal, with the exception of memory addresses, which are in hex. 

LI {<unit>) 

This will list the directory on the specified unit, with the current disk as the 
default. Each file will be listed, followed by the address, length, protect 
status, type, and start address if the file is type 1. A sample listing is 
shown in appendix C. 

FL (<xinit>) 

This is similar to the LI command, only the directory is listed in a 'fast' 
format. Only the file is listed, six-wide across the page. This is useful for 
seeing just if you have a particular file. 

CR <file> <length> (<address>) 

The create command allows you to create a file entry in the directory. The file 
will be created with the specified length. If an address is specified. It will 
be used, otherwise the first free disk address will be defaulted to. 

DE <file> 

This will delete a file entry. Remember, the file itself will not be harmed, 
just the entry in the directory. A protected file cannot be deleted. 

RN <old-file> <new-file> 

This allows you to change the name of (rename) a file. All the other 
information (type etc.) will remain the same. Do not rename a file to a name 
that already exists 1 

TY <file> <type> {<start aadr>) 

This sets the type of a file. If type 1 is specified, the start address MUST be 
specified. No accessing of the file is actually done, just the directory 
entry. 

PR <file> 

This protects the file specified. When a file is protected, it cannot be 
deleted. The file may still be written into, however! This is not a perfect 
protection, but it does keep you frcan deleting an important file In a moment of 
frustration. IMK>KDANT NOTEI Assembler source (type 8) and BASIC (types 2 and 
3) files MAY NOT be protected. If you do, any attempt by XEK or BASIC to look 
them up will fail. 
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OP <file> 

This will just unprotect a file. No error is caused by unprotecting a file that 
wasn't protected anyway. 

LF <file> <niem addr> 
SP <file> <mem addr> 
VF <file> <inem addr> 

These commands load, save, or verify a file. The load and save commands do so 
with respect to the menrary address specified. Thus 'SF TEST 3000' would save 
memory into a file called TEST, starting at memory address 3000. Data will be 
written into the file sequentially until it is full. The LP command works in a 
similar manner, only data is read from the disk into memory. The VF command 
does no ram access; it verifies the file by doing an internal check on it. The 
memory address is necessary, though, so just use as a dummy address, 

CF <old-file> <new-file> 

This will copy the data from one file to another. In addition, the type and 
protect infoacmation will be copied too. Make sure that the destination file is 
at least as lar^ as the source file, or you will receive an error. 

GO <file> 

This will load a type 1 file into memory at its start address and jump to it. 
Note that this is equivalent to using the LF command followed by a JP ccawnand to 
the start address of the file. Obviously, this only is for type 1 files. 

RD <addr> <mem addr> <sectors> 
WR <addr> <mem addr> <sectors> 
VR <addr> <mem addr> <sectors> 

These commands will read, write, or verify data directly on the disk, with no 
regard for files. These commands are used infrequently, as normally all work is 
done with files. Using the RD command as an example, take the command RD 4 3000 
10. This will read 10 sectors, starting with address 4, and load them into 
memory beginning at address 3000 (hex). The WR and VR commands work similarly. 
The VR command, like the VF command, does internal checking only. You may use 
as a dummy ram address for this command. 

IN (<\init>) 

This will initialize a fresh diskette. It completely fills the diskette with 
spaces (ascii 20 hex). This MOST be done to MJtt diskettes before use, as they 
contain garbage before initialization. This command also writes the sector id's 
on each of the sectors (These id's are used for error checking). You shouldn't 
initialize a diskette that contains valid data, of course. 

DT (<unit>) 

This will test a diskette by writing and then verifying a constantly changing 

pattern over the entirety of the diskette. This destroys any data that was on 
the diskette, so use with caution, and NEVER on a diskette after it has valid 

data written on it. 
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CD <source> <dest> 

This win copy the entirety of the source diskette onto the destination 
diskette. No file-oriented access is used, just direct read and write. The 
resulting diskette is an exact duplicate of the source diskette. 

CO (<unit>) 

This compacts the data on the disk i^ moiring all files toward the beginning of 
the disk. This can become necessary when you have several files, and you delete 
one or more out of the middle. See also a note in the usage section of this 
manual referring to this command, 

JP <mem adr> 

This just transfers control to the specified address in memory. It is used, for 
example, to start a program that is already in memory. 

DD (<unit>) 

This sets the default unit to the one specified. If no unit is specified, then 
unit 1 is used. All disk accesses, when no unit is specified, use the default 
tmit. 

f <text> 

Typing a semicolon ( ,• ) as the first character of a line will cause the line to 
be ignored. Only thirty characters may be typed, though, or you will receive an 
error . 

<file> 

Typing a file name alone is exactly like typing GO followed by the file name. 
Thus BASIC and C30 BASIC are identical commands. 
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USAGE MOTES OM MZOS 

The following is a collection of things to know while using MZOS. 

When typing a coramand, it may be aborted at any time by typing control-C. To 
erase the last character typed, hit Backspace, Underscore, or DEL. 

During execution of a command like DT or IN, you may abort execution by typing 
control-C. 

You should not have any type 1 files with a filename less that three characters 
long. If you do, you will have to use the GO command to run it. 

The DT command will run until it finds an error or you stop it. 

The IN command takes around a minute and a half, or about two and a half if you 
have ^the read-after-write check enabled. 

IIKVKR NEVER NE¥BR NEVER interrupt the execution of the CO command, unless you 
don't mind your diskette being totally destroyed. Compaction normally takes 
well under five minutes, but depending on the degree of disaster your diskette 
is in, it could take ten or twenty minutes to compact it. DON'T PiVSIC! A 
relatively messy disk could require over a million read/writes, and interrupting 
it in midstream is guaranteed to leave the disk in a totally unknown state. So 
unless the disk starts smoking or making really terrible sounds, just leave it 
alone. 

In a multiple-unit system, the particular drive which you wish to reference is 
indicated by adding a ,1 ,2 ,3 or ,4 to either a filename or disk address. Thus 
referencing the file TEST on unit 2 would look like TEST, 2 j a reference to 
sector 24 on unit 3 would be 24,3. This is true of ANY file reference, in any 
command; or of the disk address in the RD, WR and VR commands. 

MZOS will digest lower case letters as well as upper case, since it just 
translates everything to upper case anyway. 

To repeat something said elsewhere, all disk accesses, where an explicit unit 
isn't specified, reference the disk specified in the last DD command. If no 
such command has been issued, then unit 1 is used. 

If you have a printer interfaced with your system, you should know that error 
messages will only print on the console, not the printer, even if the printer is 
enabled. This prevents getting error messages in the middle of a good 
printout. 

Needless to say, this operating system is completely compatable with the North 
Star DOS. It is specifically designed so that any software that runs on the 
North Star system will run on MZOS. 
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A reasonably comprehensive set of error messages are provided with MZOS. 
Following is a list of these errors and why you might get them. 



Huh? 

This means that you typed something that MZOS can't possibly understand. 
Usually this is from misspelling a command, or typing an invalid filename as an 
implied GO. 



% Syntax erxor 

This indicates that you typed a valid command, but invalid argtinrents. Examples: 
TY FILE 1 without a start address, or LF FILE QWERT lAiere QWERT is obviously not 
a hex address. 



% File eirxor 

This is caused by an Invalid file reference. It can be caused by creating a 
file that already exists, referencing one that doesn't, trying to GO a 
non-type-1 file, and so forth. 

% Disk overflew 

You tried to create a file that would extend beyond the boundries of the disk 
(that is, past sector 1231). 

% Write protected 

You either tried to write on a protected disk, or tried to delete a file that is 
protected . 



% Disk offline 

This can be caused by trying to access the disk when either there is no diskette 
in the drive, the drive is not up to speed, or the controller just isn't 
installed in the computer. 



% Illegal argament 

An attempt was made to read, write, or verify beyond the boundries of the disk. 
This is similar to the overflow error, only this refers to access attempts, 
rather that file creation. 



%1.5 1-79 



MZOS User's Giilde 



% CRC error at sector xxxx,n 

Bad data was encoiintered on the disk in iinit n, at sector xxxx. This is usually 
caused by a faulty diskette, or access to an iminitialized diskette. 

% Sector id error at sector xxxx,n 

This means that the sector read was not the one wanted. The most common cause 
of this is a glitch in the stepper motor, or possibly a bad diskette. 
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FAMOUS lAST WORDS 

MZOS has been thoroughly tested, and should hopefully serve you well on your 
system. In the event you have any trouble, though, or need help in figuring out 
how it works, feel free to contact us for assistance. We would also appreciate 
any comments, suggestions, or improvements to this manual, or additions to or 
ideas for MZOS, that you might think up. 
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AHPSNDIX As MZOS ENTRY K)niTS 



Assuming you have some familiarity with assembly language, this should help you 
understand interfacing to VLZOS. Although MZOS is actually a Z-80 program, these 
explanations will use 8080 code whenever possible as it seems to be more 
popular . 



MZOS 2028 

The MZOS entry point is where you jump to start MZOS. The monitor 'J' command 
will jump here very nicely. At the end of some other program, putting a JMP 
2028H will return control to MZOS. 



MBOOT C400 

This is where to jump to in order to boot up MZOS. The monitor 'E' command can 
be used to initially do so. 

DOOM C402 or 2022 

This is the nitty-gritty disk i/o routine. All disk access can be done here. 
Basically, what you do is set up the registers for what you want to do, then 
call here. (The difference is that 2022 will do the read-after-write check, and 
it will return to MZOS after printing any error, whereas C402 does not, and 
returns as ejcplained below. The registers should be set up as follows: 

A number of sectors to access 

B command - see below 

C unit - 1, 2, 3, or 4 

Dl ram address to read into or write from 

HL disk address (sector) to begin access at 

Commeuids are: write from memory to disk 

1 read from disk to memory 

2 verify CRC internally on disk 

3 seek (go to) sector specified only 

4 recalibrate drive (go to sector 0) 

The last two, seek and recalibrate, are mainly for test purposes. The 
recalibrate is used to insure proper positioning of the head, in case (for 
example) the track table is accidentally destroyed, or the stepper motor 
doesn ' t. 

On return, if the carry flag is cleared, then all is well? otherwise, the flag 
will be set, and the error code will be in A' (A prime). The error codes are as 
follows: 

- no error 1 - CRC error 2 - sector id error 

3 - write protected 4 - disk offline 5 - illegal argument 

Calling address C404 will print the error associated with the error code. 
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DLOOK 20 1C 

This Is used to lookup a file in the directory. Looking up a blank entry will 
locate a free space, for creating a new file. When this is called, A should 
contain the unit number, and HI* should point to (contain the address of) a 
string of characters representing the file name, followed by either a return { OD 
hex) or a blank (20 hex). 

When this routine returns, if the CY flag is set, then the file you looked up 
does not exist. In this case, HL contains the first free address on the disk. 
If CY isn't set, then the file was successfully found. In this case, HL points 
to the eighth byte of a copy of the entry. This copy is actually within the 
directory buffer of MZOS. See the file structure section of this manual for the 
structure of the entry. 



DWRIT 20 IF 

This will write a directory entry back to the disk. It is important that NO 
DISK ACCESS OCCUR between DLOOK and DWRIT. Now, the procedure for reading a file 
would be to use DLOOK to lookup the file? assuming it is really there, 
incrementing HL will make it point to the starting disk address of the file; 
then use DOOM to actually read the file. To write a new file to disk, you would 
first lookup the file, to make sure that it doesn't already exist. This will 
fail, assuming the name isn't there yet. Next, lookup a blank name. In the 
event this fails (it shouldn't), the disk you're using doesn't have a directory 
on it, or is full. Anyway, now HL points to the eighth byte of a blank entry. 
Now you should copy in the file name, disk address (from your first lookup), 
length, type, and start address (if needed). This done, call DWRIT to update 
the directory. 



DLIST 2025 

This will print the directory of the unit specified in A. The list is exactly 
the same as the LI command. 



RWCHK 202B 

This is not em entry point, but rather a flag. If this byte is 1 , then a verify 
will be done after a write. This will slow down write operations considerably, 
but may be desired if you don't trust your diskette. 



PRMPT 206B 

This location contains the character used as a prcmpt. Currently it is set to a 
number sign (#, 23 hex), but you may change it if you like. 
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APPENDIX Bs COMSOIjE I/O 

Here we will discuss the console i/o provided with your system, and how you may 
change it if necessary. 

First, there are four entry points in MZOS which reference console i/o. They 
are as follows. 



INCH 2010 

This will input a single character frcan the console. 

OtITCH 200D 

This will output a single character. 

OOTPR 200 A 

This will output a character to the printer. 

CHKCH 2016 

This does three things. First, it checks whether a character has been typed. 
If not, it returns immediately with the Z flag cleared. If a character has been 
typed, it sees if it was a control-C. If this is the case, then it returns, 
with Z set. Finally, if a character was typed, and it was a space, then another 
character is waited for. This allows you to momentarily suspend output by 
hitting the space bar. After another character is typed, this routine retiims, 
with the Z flag set if that character was a control-C. 

TINIT 2013 

This is used to initialize the i/o system, if needed. It is currently set up to 
initialize the Bitstreamer board, but may be able to be replaced with RET 
instruction . 



So. Those are the entry points. The actual routines, though, are located in a 
64-byte block from 2900-29FF. A listing is provided of the routines as 
provided, in case your system is different. 

Checking with the listing, notice that there are addresses assigned to each 
routine. They are spaced far enough apart that you should be able to fit in any 
of your own routines without moving any other routine. This means that you 
shouldn't have to patch the jump table (entry points) at all. 
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Notice that the OOTCH routine does more than just output a character to the 
console. Since the character to be printed is passed in the B register, the A 
register is used as a channel number. In the configuration provided, channel 1 
is used to send output to the printer, and any other channel sends output 
through the monitor. 

Also, notice that the input routine converts the characters 5F (underscore) and 
7f (del) to 08 (backspace). 

At this point it might be wise to point out that normal console i/o takes place 
through the prom monitor. PTCN (C098) is used for output, and caJTLC (CODC) is 
used for input. 

As for rules of use, they are as follows. (Except as specified, no registers may 
be changed. ) 

INCH returns the character typed in A. 

OOTCH prints character in Bj returns with it in A also. 

ODTPR exactly as ODTCH, but character is sent to printer. 

CHKCH may use A onlyj character returned is indeterminate. 

TINIT currently uses A only, but may use all registers. 

In the event you change the i/o routines, the procedure for updating the disk is 
as follows. First, you should assemble your i/o routines to run at 2900 (hex). 
You can overlay them directly on MZOS, providing you do no i/o while the 
routines are being loaded. Once overlaid, they are immediately effective, so 
you can check them to make certain they work. Once that's done, you can resave 
MZOS on disk simply by typing SF MZOS 2000. 
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2900 
2900 
2900 
2900 

2900 

2900 

2900 

2900 

2900 

2900 

2900 

2900 CD 

2903 C3 

2906 

2906 

2906 

2906 

2906 

2910 

2910 AF 

2911 D3 
2913 D3 
2915 D3 
2917 3E 
2919 D3 
291B 3E 
291D D3 
291F 3E 
2921 D3 
2923 C9 

2924 

2924 

2924 

2924 

2940 

2940 CD 

2943 FE 

2945 C8 

2946 FE 

2948 CO 

2949 CD 
294C FE 
294E 09 
294F 
294F 
294F 
294F 
294F 
2960 
2960 CD 
2963 CA 
2966 FE 
2968 CC 



10 29 
28 20 



03 
03 
03 
40 
03 
CE 
03 
27 
03 



DC CO 
03 

20 

60 29 
03 



DC CO 
60 29 

5F 
71 29 



0001 
0002 
0003 
0004 

0005 
0006 
0007 
0008 
0009 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0028 
0029 
0030 
0031 
0032 
0033 
0034 
0035 
0036 
0037 
0038 
0039 
0040 
0041 
0042 
0043 
0044 
0045 
0046 
0047 
0048 
0049 
0050 
0051 
0052 
0053 
0054 



* MZOS STANDARD I/O SYSTEM 

* NEALE BRASSELL [15-DEC-78] 

* 

lOLOC ^U 2900H 

MZOS ma 2028H 

* 
* 

* THIS DOES AN INIT, THEN JUMPS TO MZOS 

* 

ORG lOLOC 

* 

REENT CALL INI8 

JMP MZOS 

* 



* THIS 

* 

* 
INI8 



IS THE INIT ROUTINE 



ORG 

XRA 
OUT 
OUT 
OUT 
MVI 
OUT 
MVI 
OUT 
MVI 
OUT 
RET 



IOLOC+16 

A 

3 

3 

3 

A,40H 

3 

A,OCEH 

3 

3 



* 

* THIS 

* 

CHK8 



CHECKS FOR <®C>, AND SUSPENDS OUTPUT ON <SPACE> 

0R3 IOLOC+64 

CALL OCODCH 

CPI 3 

RZ 

CPI 32 

RNZ 

CALL IN8 

CPI 3 

RET 



* THIS IS THE CONSOLE INPUT ROUTINE 

ORG IOLOC+96 

* 

INS CALL OCODCH 

JZ INS 

CPI 5FH 

CZ MAKES 
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296B 


PI 


7P 




296D 


cc 


71 


29 


2970 


C9 






2971 


3E 


08 




2973 


C9 






2974 








2974 








2974 








2974 








2974 








2990 








2990 


FE 


01 




2992 


CA 


CO 


29 


2995 


78 






2996 


C3 


98 


CO 


2999 








2999 








2999 








2999 








2999 








29C0 








29C0 


78 






29C1 


C3 


98 


CO 



29C4 



0055 


CPI 


7PH 


0056 


C25 


MAKES 


0057 


RET 




0058 


MAKES M^I 


A, 8 


0059 


RET 




0060 


* 




0061 


* 




0062 


* CONSOLS ODTPOT - IP . 


0063 


* 




0064 


ORG 


IOLOC+144 


0065 


* 




0066 


OUTS CPI 


1 


0067 


JZ 


ODTPR 


0068 


MOV 


A,B 


0069 


JMP 


0C098H 


0070 


* 




0071 


* 




0072 


* PRINTKR OUTPUT - JUS' 


0073 


* 




0074 


0B3 


IOLOC+192 


0075 


* 




0076 


OUTPR MOV 


A,B 


0077 


JMP 


0C098H 


0078 


* 





SYMBOL TABLE 



CHK8 
MZOS 



2940 
2028 



IN8 
OUTS 



2960 
2990 



INI8 2910 
OUTPR 29C0 



lOLOC 2900 
REENT 2900 



MAKES 2971 
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MZOS 


4 


10 P 00 


DEX 


59 


23 P 01 2A0O 


lOSYS 


86 


90 08 


INXFILE 


426 


50 03 



APTOMPIX C: SMCPia DIRECTORY USTING 

Here is a sample listing, as produced by the LI ccanmand. 



BASIC 14 45 01 2A00 
TESTFL 82 4 02 
DATAFILS 176 250 03 



Here is an analysis of the above listing. 

MZOS is a file, starting at address (sector) 4 and taking 10 sectors. It is 
protected, so it cannot be deleted. 

BASIC is a 45-sector machine code file, starting at address 14. It's ram 
starting address is 2A00. It could be executed by typing 'GO BASIC, or just 
'BASIC 

DEX is a machine code file, similar to BASIC. It is protected, though. Its 
starting ram address is also 2A00. 

TESTFL is a BASIC program (type 2), which can be loaded and executed with 
BASIC. 

lOSYS is a XEK source file (type 08). 

DATAFILE is a rather large BASIC data file (type 3). It is accessed with READ 
and WRITE statements in BASIC. 

INXFILE is a BASIC data file, like DATAFILE. 
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MZOS Utilities 



There are two utility and three printer driver programs provided on yo\ir system 
disk as received from Vector Graphic. They are NS2MZ, TITLE, DIAB, CENT, and 
TTY. Here we will provide you with source listings and instructions for their 

use. 

First for the printer drivers. DIAB is the routine for a Diablo printer. It 
assumes that you are using ports 2 and 3 for the printer, and that the printer 
is the version that runs at 1200 baud, with handshaking logic. 

CENT is for a Centronics printer, such as 781, 702, etc. with parallel 
handshaking logic. Port 1 is used for this printer. 

TTY is for most serial printers, such as a TTYs, Decwriters, TISIOs, and so 
forth. It also assumes ports 2 and 3 are being used. 

For all three routines, they may be invoked by simply typing the name of the one 
you want, either DIAB, CENT, or TTY. If you want to save MZOS with one of these 
routines incorporated into it, you would just type SF MZOS 2000 after loading 
the driver. Example: 

iDIAB 

#SF MZOS 2000 

The system on the diskette now has the driver incorporated in it. 

Notice (in the source listings) that the various routines are spaced over the 
entire 2900-29FF block allocated to them. This is so that you can change the 
drivers without changing the jump table in MZOS. The current assignments are as 
follows: 

REENTRY 2900 jui^i back to MZOS 

TINIT 2910 initialize 

CCCHK 2940 control-C check 

INCH 2960 Input character 

OUTCH 2990 output character 

OUTPR 29C0 output character to printer 

The reentry spot is so that this can be executed as a program, allowing you to 
type 'DIAB' instead of 'LF DIAB 2900'. 

There are a couple of features included in the input and output routines to 
complement the printer. First, when you type a control-P, the input routines 
toggles the printer flag, then discards the character. This way, even if your 
program doesn't allow control characters, typing control-P will still work. 
What toggling the printer flag actually does is to allow output to go to both 
the console and the printer. Typing control-P a second time will turn the 
printer off, etc. Second, typing control-L will send a formfeed to the printer, 
and discard the character. This should be done before you print something the 
first time, as it also sets the line counter. The output is paged; every 56 
lines, it skips to the top of the next page. Checking the listings provided 
should help you understand how the system works. 

Also, the input routine converts the Underscore character (5F) and the DEL 
character (7F) to Backspace (08). This is so that any one of them will work 
properly to erase the last character typed. 
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MZOS Utilities 



The utilities provides are NS2M2 and TITLE. 

The first utility is the NS2MZ program, which, as its name implies, transfers 
files from North Star disk to MZOS. It is a simple program, as you can see from 
the listing. To use it, first initialize a disk with MZOS. Then load the NS2MZ 
program into memory, anywhere EXCEPT from 2000 to 3400. The program is 
relocatable, so it doesn't matter; we recommend that you load it at 4000. Next, 
boot your North Star DOS. Insert the disk you want to copy into drive 1 (North 
Star), and the disk you Just initialized into drive 1 (Micropolis) . Now JP to 
whatever address you loaded the program at. It will copy the entire disk, 
exactly as it is, onto the Micropolis disk. Now insert a system disk into the 
Miropolis drive and boot MZOS. Type LF MZOS 3000 (load MZOS into memory), then 
insert the new diskette; type SF DOS 3000 (which saves it onto the disk) 
followed by RN DOS MZOS (which renames the DOS to MZOS). You now have yoiir 
North Star diskette on Micropolis disk. This procedure may be repeated for each 
disk you wish to copy. Note, though, that the disk is copied onto another disk 
exactly, so you may only copy disks one-to-one. Since the Micropolis disks hold 
more, you may want to merge several disks together manually after you've copied 
them. 

The other utility, TITLE, titles the disk. The title is 10 characters long 
maximum, and is printed when you boot the disk. That is, only disks with MZOS 
on thsm can be titled. To run the program, just type TITLE. The program will 
print > indicating it is reading in the first sector of MZOS, then print : 
indicating that it is waiting for the title. At this point, type the desired 
title. Type carefully, since it is absolutely unforgiving of errors. After 
you've typed the title, hit CR. The program will print < indicating it is 
writing the data back out to disk, then it will return to MZOS. 

Following are the source listings for all five of these programs. 
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0000 






0000 






0000 






0000 






0000 






0000 






0000 






0000 






0000 






0000 






0000 






0000 


31 OA 




0002 


06 23 




0004 


OE 01 




0006 


11 00 


2& 


0009 


21 00 


00 


oooc 


C5 




OOOD 


06 01 




OOOF 


F5 




0010 


D5 




0011 


E5 




0012 


CD 22 


20 


0015 


El 




0016 


D1 




0017 


Fl 




0018 


06 00 




001A 


CD 02 


C4 


001D 


D5 




001E 


11 OA 


00 


0021 


19 




0022 


D1 




0023 


CI 




0024 


10 




0025 


E6 




0026 


C9 




0027 






SYMBOL TABLE 


DJNZ 


0010 


MZ 



0001 * 








0002 * NORTH STAR 


TO M20S DISK 


C»Py PROGRAM 


0003 * NEALE BRASSELL [26-JUN- 


78] 


0004 * 








0005 * THIS 


PROGRAM IS 100% RELOCATABLE. . ,- 


0006 * 








0007 M2 ... 


EQU 


0C402H 


?M20S DOOM ROUTINE ... ^- 


0008 NS 


EQU 


02022H 


; NORTH STAR DCOM ROUTINE 


0009 * 








0010 DJNZ 


BQU 


10H 




0011 * 








0012 NS2MZ 


MVl 


A, 10 


;10 SECTORS AT A TIME 


0013 


MVI 


B,35 


;35 SUCH TRANSFERS 


0014 


MVI 


c,i 


; WE'LL USE DISK 1 


0015 


LXI 


D,2A00H 


? TYPICAL BUFFER SPOT 


0016 


LXI 


H,0 


; START FROM .. IfHE BEGINNING . : • 


0017 N2M 


PDSH 


B 


;SAVE COUNTER ' 


0018 


MVI 


B,1 \ '. 


.-REaDFROM NS , , 


0019 


PIBH 


PSW . \ . 


JHJV V*-'' ' ■ ^' ■ ■ ■ 


0020 


PUSH 





,. ■ - ~ 


0021 


POSH 


H 




0022 


CALL 


NS 


. ;«-D&-pIT >■>; I ^-.f. .. .(■ .. "- 


0023 


POP 


H 




0024 


POP 


D 


- ■" ■ ... 1 "■ « 


0025 


POP 


PSW 


- i ;■ • ■ -. ■ •■ ••. . ., ;; ; ■■ ; 


0026 


MVI 


B,0 


,- WRITE - TO _^MZ. .. ^ J :..-.;.= ■ ' •. .' 


0027 


CALL 


MZ 


j« DO. IT,' >>...-:,' ..'■ ^ . ..:., -r 


0028 


PUSH 


. D 


;SAVe"de ' \ _• ■ , „ 


0029 


LXI 


D,10. 


1 TEN. SECTORS DONE,., " . ..~,.^ 


0030 


DAD 


d' ' 


; REFLECT 'this 


0031 


POP 


D 


; RESTORE DE 


0032 


POP 


B .- ,,__,. 


_ . ;GET^,C»yN?'EB.._ ..._,,.,. 


0033 


DB 


DJNZ 


;USE NEAT Z-SO CODE 


0034 


DB 


N2M-$-1 


;T0 EFFECT A LOOP 


0035 


RET 




; HOPEFULLY RETURN TO WHOEVER 


0036 * 









C402 



N2M OOOC 



NS 



2022 



NS2MZ 0000 



22 



0000 








0000 








0000 


AF 






0001 


06 


3E 




0003 


CD 


OD 


20 


0006 


3E 


OA 




0008 


01 


01 


01 


OOOB 


11 


00 


2B 


OOOE 


21 


04 


00 


0011 


CD 


22 


20 


0014 


06 


3A 




0016 


CD 


OD 


20 


0019 


21 


00 


2B 


001C 


06 


09 




00 IE 


CD 


10 


20 


0021 


47 






0022 


CD 


OD 


20 


0025 


FE 


OD 




0027 


28 






0028 


04 






0029 


77 






002A 


23 






002B 


10 






002C 


F1 






002D 


2B 






002S 


3E 


80 




0030 


B6 






0031 


77 






0032 


06 


3C 




0034 


AF 






0035 


CD 


OD 


20 


0038 


3E 


OA 




003A 


01 


01 


00 


003D 


11 


00 


2B 


0040 


21 


04 


00 


0043 


CD 


22 


20 


0046 


C3 


28 


20 



0001 


* LITTLE PROGRAM TO T 


0002 


* NEALE BRASSKT.T, [12- 


0003 


* 




0004 


TITLE XRA 


A 


0005 


MVI 


B, •>' 


0006 


CAT.T, 


0200DH 


0007 


MVI 


A, 10 


0008 


LXI 


B,101H 


0009 


LXI 


D,2B00H 


0010 


LXI 


H,4 


0011 


CALL 


02022H 


0012 


MVI 


B,*!' 


0013 


CALL 


0200DH 


0014 


LXI 


H,2B00H 


0015 


MVI 


B,9 


0016 


LOOP CALL 


2010H 


0017 


MOV 


B,A 


0018 


CALL 


0200DH 


0019 


CPI 


13 


0020 


DB 


28H 


0021 


DB 


CR-$-1 


0022 


MOV 


M,A 


0023 


INX 


H 


0024 


OB 


16 


0025 


DB 


Loap-$-i 


0026 


CR DCX 


H 


0027 


MVI 


A, 128 


0028 


ORA 


M 


0029 


MOV 


M,A 


0030 


MVI 


B,'<' 


0031 


XRA 


A 


0032 


CALL 


0200DH 


0033 


MVI 


A, 10 


0034 


LXI 


B,1 


0035 


LXI 


D,2B00H 


0036 


LXI 


H,4 


0037 


CALL 


2022H 


0038 


.TOP 


2028H 



;OOTPDT NOTE 



(READ IN MZOS 



( PROMPT 



;GST CHARACTER 



rIF <CR>, END 



f CONTINUE 



!;'?RITE MZOS BACK 



SYMBOL TABLE 



CR 



002D 



LOOP 00 1E 



TITLE 0000 



23 



2900 








2900 








2900 








2900 








2900 








2900 








2900 








2900 








2900 








2900 








2900 








2900 


CD 


10 


29 


2903 


C3 


28 


20 


2906 








2906 








2906 








2906 








2906 








2910 








2910 


AF 






2911 


D3 


03 




2913 


D3 


03 




2915 


D3 


03 




2917 


3E 


40 




2919 


D3 


03 




291B 


3E 


CE 




291D 


D3 


03 




291F 


3E 


27. 




2921 


D3 


03 




2923 


C9 






2924 








2924 








2924 








2924 








2924 








2940 








2940 


3A 


ro 


29 


2943 


F5 






2944 


AF 






2945 


32 


FD 


29 


2948 


F1 






2949 


CD 


50 


29 


294C 


C8 






294D 


CD 


DC 


CO 


2950 


FE 


03 




2952 


C8 






2953 


Fl 


20 




2955 


CO 






2956 


CD 


60 


29 


2959 


PE 


03 




295B 


C9 






295C 








295C 








295C 









0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0028 
0029 
0030 
0031 
0032 
0033 
0034 
0035 
0036 
0037 
0038 
0039 
0040 
0041 
0042 
0043 
0044 
0045 
0046 
0047 
0048 
0049 
0050 
0051 
0052 
0053 
0054 



* MZOS DIABLO 1/0 SYSTEM 

* NEALE BRRSSELL / R.S, HARP [15-DEC-78] 

* 

lOLOC EQO 2S00H 
MZOS EQU 2028H 

* 

* THIS DOES AN INIT, THEN JUMPS TO MZOS 

* 

ORG lOLOC 

* 

REENT CALL INIS 

JMP MZOS 

* 

* 

* THIS IS THE INIT ROOTINS 
* 

ORG IOLOC+16 



* 

mis 



XRA 

oxm 

OUT 
OCTT 
MVI 
OUT 
MVI. 
OUT 
MVI 
OUT 
RET 



A 

3 

3 

3 

A,40H 

3 

A, OCEH 

3 

A,27H 

3 • 



* THIS CHECKS FOR <©C>, AND SUSPENDS OUTPUT ON <SPACE> 

; : om . ioloc+64 



BUF1»^ LDA 

/, .: PUSH 

XRA 
STA 
POP 
CALL 
RZ 
CHK8 CALL 
CMPR CPI 
RZ 
CPI 
RNZ 
CALL 
CPI 
RET 



CCBUF 

PSW 

A 

CCBUP 

PSW 

CMPR 

OCODCH 
3 

32 

INS 
3 



* CONSOLE INPUT - <©P> & <©L> ARE HANDLED SPECIALLY 



2k 



295C 




295C 




2960 




2960 CD DC 


CO 


2963 CA 60 


29 


2966 FE 5F 




2968 CC 89 


29 


296B FE 7F 




296D CC 89 


29 


2970 FE 10 




2972 CA 7F 


29 


2975 FE OC 




2977 CO 




2978 47 




2979 CD CO 


29 


297C C3 60 


29 


297F 3A FE 


29 


2982 2F 




2983 32 FE 


29 


2986 C3 60 


29 


2989 3B 08 




298B C9 




298C 




298C 




298C 




298C 




298C 




2990 




2990 FE 01 




2992 CA CO 


29 


2995 78 




2996 CD 98 


CO 


2999 3A FE 


29 


299C B7 




299D 78 




299E C8 




299F C3 CO 


29 


29A2 




29A2 32 FF 


29 


2 9 AS 78 




29A6 CO 




29A7 C5 




29AB 06 OC 




29AA CD CO 


29 


29M) CI 




29AE 78 




29AF C9 




29B0 




29B0 




29B0 




29B0 




29B0 




29C0 




29C0 DB 03 




29C2 E6 01 




29C4 CA CO 


29 



0055 

0056 

0057 

0058 

0059 

0060 

0061 

0062 

0063 

0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 

0078 

0079 

0080 

0081 

0082 

0083 

0084 

0085 

0086 

0087 

0088 

0089 

0090 

0091 

0092 

0093 

0094 

0095 

0096 

0097 

0098 

0099 

0100 

0101 

0102 

0103 

0104 

0105 

0106 

0107 

0108 

0109 

0110 



IN8 



IOLOC+96 

OCODCH 
1N8 
5FI 
.MAKES 
7FH 
MAKES 

16 

CTLP 
12 

B,A 



ORG 

CALL 

JZ 

CPI 

,cz;, 

CPI 
CZ 

CPI 

JZ 

CPI 

RNZ 

MOV 

CALL OOTPR 

JMP INS 



;GET CHARACTER 



CTLP 



LDA 
CMA 
STA 
JMP 
MAKES M7I 
RET 



OOTFL 

OOTFL 

INS 

A,8 



; CONVERT DEL & USCORE IQiBS 

;SEE IF ©P ■■ ! 

?SEE IF ©L 
/RETURN IF NOT 

I SEND FORMFEED 

/DISCARD CHARACTER "• 



?©P COMPLIMENTS. PRINTER. -FLAG 
;AND DISCARD CHARACTER " ' 



* OOTPUT CHARACTER - IF 

* 

ORG i;OLOC+144 - 



A=1, THEN USE DIABLO 



I ": 



0UT8 



CPI 
JZ 
MOV 
CALL 

LDA' 

ORA 

MOV 

RZ 

JMP' 



PRCNT STA 
MOV 



1 
OOTPR 

a,b'" 

0CD98H 
OOTFL 

A 

OUTPR 

LNCNT 
A,B 

B 
B,12 - 



, J.'IF A=1 THEN USE PRINTER;,,... 

;SEND CHARACTER TO CSiNSOLE 

I CHECK PRINTER FLAG rf ' ' 

' '/RETURN IF NOT .SE.T^, : - ^.r-'^'s 
J SEND TO PRINTER ZW SIT' .i* n 



RNZ 

PUSH 

MVI 

CALL OOTPR 

POP B 






MOV 
RET 






* DIABLO PRINTER OOTPUT ROUTINE 

* 



ORG 

* 

OUTPR IN 
ANI 
JZ 



IOLOC+192 

3 
1 

OUTPR 



;WAIT FOR READY FROM USART 



25 



29C7 78 






29C8 m 


02 




29CA FE 


OA 




29CC CA 


D9 


29 


29CF FE 


OC 




29D1 CO 






29D2 3E 


38 




29D4 32 


FF 


29 


29D7 78 






29D8 C9 






29D9 C5 






29DA 06 


03 




29DC CD 


CO 


29 


29DF DB 


03 




29E1 E6 


02 




29E3 CA 


DF 


29 


29E6 DB 


02 




29E8 E6 


7F 




29EA FE 


06 




29EC CA 


F5 


29 


29EF 32 


FD 


29 


29F2 C3 


DF 


29 


29F5 CI 






29F6 3A 


FF 


29 


29F9 3D 






29FA C3 


A2 


29 


29FD 






29FD 






29FD 






29FD 00 






29FE 00 






29FF 38 






2AD0 







0111 

0112 

0113 

0114 

0115 

0116 

0117 

0118 

0119 

0120 

0121 

0122 

0123 

0124 

0125 

0126 

0127 

0128 

0129 

0130 

0131 

0132 

0133 

0134 

0135 

0136 

0137 

0138 

0139 

0140 

0141 

0142 

0143 



ITALF 



WTACK 



A.J%\^M\. 



CCBOT 
OOTFL 
LNCNT 



MOV 

OUT 

CPI 

JZ 

CPI 

RNZ 

MVI 

STA 

BK)V 

RET 

PUSH 

MVI 

CALL 

IN 

ANI 

JZ 

IN 

ANI 

CPI 

JZ 

STA 

JMP 

POP 

LDA 

DCR 

JMP- 

OBG 

DB 
DB 
DB 



2 
10 

ITALF 
12 

A, 56 

LNCNT 

A,B 

B 
B,3 

OOTPR 

3 

2 

WTACK 

2 

7FH 

06 

lACK 

CCBUF 

WTACK 

B ■ 

LNCNT 

A 

PRCNT 

IbKX:+253 



56 



J SEND CHARACTER 
;SEE IF LINEFEED 

;SEE IF FORMFEED 
; RETURN IF NOT 



? RESET PAGE CXJONTER ON FORMFEED 



jSEND ETX AFTER LF 



;WAIT FOR ACKNOWLEDGE 



J ADJUST LINE COUNTER' 



■J CHAR PROM DIABLO • 
.-PRINTER FLAG ^^ 
ftlNE CWONTER 



SYMBOL TABLE 



BUFT 2940 
lACK 29F5 
LNCNT 29PF 
ODTPR 29C0 



CCBUF 29FD 
IN8 2960 
MAKES 2989 
PRCNT 29A2 



CHK8 294D, 
INI8 2910 
M20S 2028 
REENT 2900 



CMPR 2950 
lOLOC 2900 
0UT8 2990 
WTACK 29DF 



CTLP 29 7F 
ITALF 29D9 
OtJTPL 29 FE 



Ac ' : ■' Z 



26 



2900 






2900 






2900 






2900 






2900 






2900 






2900 






2900 






2900 






2900 






2900 CD 


10 


29 


2903 C3 


28 


20 


2906 






2906 






2906 






2906 






2906 






2910 






2910 AP 






2911 D3. 


03 


..... , 


2913 D3 


03 




2915 D3^ 03 




2917 31 


40 




2919 D3 


;03j 




291B 3E 


CE 




29 ID D3 


W 




291F 3S 


27 




2921 D3 


03 




2923 C9 






2924 






2924 






2924 






2924 






2924 






2940 






2940 03 


Dj3, 


'^c- 


2943 PE 


03 




2945 C8 






2946 FE 


20 




2948 CO 




:j c 


2949 CD 


60 


29 "^ 


294 C IE 


03 


1'.-"' / ■■ 


294E C9 






294F 






294F 




- -! '.- - : 


294F 






294F 






294F 






2960 






2960 CD 


DC 


CO 


2963 CA 


60 


29 


2966 PE 


5F 




2963 CC 


89 


29 



0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0028 
0029 
0030 
0031 
0032 
0033 
0034 
0035 
0036 
r.0,037 
0038 

•:lP039 

0040 
. rfl04 1 
0042 
0043 
0044 
0045 
i>p46 
0047 
0048 
0049 
0050 
0051 
0052 
0053 
0054 



* MZOS CENTRONICS I/O SYSTEM 

* NEALE BRASSELL [1S-DEC-73] 



lOLOC BQU 
MZOS BQU 



2900H 
2028H 



THIS DOES m INIT, TdEN JUMPS TO MZOS 



OIG lOLOC 



REENT CALL I1II8 
JMP MZOS 



* TllS IS THE INIT RODTINE 



OHG IOLOC+16 



INI8 XRft 

GUT 

OOT. 

^ OUT' 



A 
3 
3 
3 



Wn. A,40H 

O0T-. 3 

MVI. A, GCEH 

OUT 3 

MVI A, 27H 

OUT 3 
SET 



* TaiS CHS.CKS FOR <©€>, AND SUSPENDS OUTPUT ON <SPACE> 

* 

0R3^ IOM)C+64 

* ■ -, - 

CHK8 CRMj OCODCH 

CPI 3 

RZ. ' 

CPI 32 

RNZ 

CALL INS 

CB.1 3. . .■ 

RET -r;- 

* 

* 

* CONSOLE INPUT - <®P> & <©L> ARE HANDLED SPECIALLY 



ORG 



IOLOC+96 



* 
IN8 



CALL OCODCH 

JZ INS 

CPX 5PH 

CZ MAK18 



.-GET CHARACTER 



27 



296B FE 7F 
296D CC 89 29 
2970 FE 10 
2972 cyi 7F 29 
2975 FE OC 

2977 CO 

2978 47 

2979 CD CO 29 
297C C3 60 29 
297F 3A Fl 29 

2982 2F 

2983 32 FE 29 
2986 C3 60 29 

2989 3E 08 
298B C9 
298C 
298C 
298C 
298C 
298C 
2990 

2990 FE 01 
2992 CA CO 29 

2995 78 

2996 CD 98 CO 
2999 3A FE 29 
299C B7 

299D 78 

299E C8 

299F C3 CO 29 

29A2 

29A2 

29A2 

29A2 

29A2 

29C0 

29C0 DB 01 

29C2 E6 01 

29C4 C2 CO 29 

29C7 78 

29C8 F6 80 

29CA D3 01 

29CC E6 7F 

29CE D3 01 

29D0 F6 80 

29D2 D3 01 

29D4 78 

29D5 FE OA 

29D7 CA 'E4 29....„. 

29DA FE OC 

29DC CO 

29DD 3E 38 

29DF 32 FF 29 ' ■ 

29E2 78 

29E3 C9 

29E4 3A FF 29 



0055 
0056 
0057 

0058 

0059 

0060 

0061 

0062 

0063 

0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 

0078 

0079 

0080 

0081 

0082 

0083 

0084 

0085 

0086 

0087 

0088 

0089 

0090 

0091 

0092 

0093 

0094 

0095 

0096 

0097 

0098 

0099 

0100 

0101 

0102 

01O3 

0104 

0105 

0106 

0107 

0108 

0109 

0110 



CPI 7FH 

CZ MAKE8 

CPI '16 

JZ ■ CTLP 

CPI 12 

-. mz- 

CALL OOTPR 

JMP INS 



CTLP. - LDA 
CMA 

'^sta; 

JMP 

MAKES MVI 

RET 



OOTFL 

OOTEL 
IN8 

■Artf 



;CONV DEL & US CORE TO BS 
;SEE IF ©P , ;. 

J SEE IF ©L 
iRE'TORN IF NOT 

;SEND FORMFEED ^ 
IDISCARD CHARACTER 



j©P COMPLIMENTS OUTPUT flAQ 
VaND DISCARD CHARACTER "' 



•'OUTPUT CBARACTES*-'5 If' A=*T^ THEN USE CENTRONICS 



d'. -.: 



ORG IOIiOC+144 



0DT8 



r, ■ u '- 



CPI 
JZ 
MOV 
CALL 
LDA 
ORA 
.MOV 
RZ 
JMP 



1- '^^ 
6XWPR 

A;a 

0C098H 
OOTFL 

A' "■ 

s;w 

OUTPR 



-J IF A=1 THEN USE PRINTER ''- 
VSEND CHARACTER TO dON^LE 
VCHECK PRINTER FI*G ' - ' " 






-; RETURN IF NOT SET 
■jSEND TC) PRINTER T* ^ET^ ' 



S^'fCLlAR STROBE 



* CENTRONICS PRINTER OUTPUT ROUTINE 

* ' '. 1 ■- 

'ORG -.*--K)LOC+'.f9T2 ' ' '- '^' 



OUTPR " m- f>- 

ANI 1 

-; JNZ' -OUTPR «^-* 

MOV A',S 

ORI 128 

OUT t - 

ANI 127 

oim -'U - 

ORJ -am 

OUT r""- 

MOV A,B 

CPI 10 

•JZ^'C^J'.lTALB'i'::-- 

CPI 12 
INZ 

MVI A, 56 

- 'STA LNCNT 

MOV A,B 
RET 

ITALF LDA LNCNT 






7 WAIT TILL NOT BUSY 
%SET STROBE 



'r :::. '..'C' '_^' Ti-*" 



>SET STROBE (NOW "ifE'^m -PXftiSlD IT) 



tSEE IF LINEFEED 



-tSee if formfeed 
'; return if not 



-t: , 



rRESET PAGE COUNTER -ON FORMFEED 



;0N LINEFEED, 'MJrfUST' "LINE -COUNTER 



28 



2917 


3D 




29E8 


32 


FF 29 


29EB 


78 




29EC 


CO 




29ED 


C5 




29EE 


06 


OC 


29F0 


CD 


CO 29 


29F3 


C1 




29F4 


78 




29F5 


C9 




29F6 






29F6 






29FE 






29FE 


00 




29FF 


38 




2A00 







0111 




DCR 


A 


0112 




STA 


LNCNT 


0113 




mv 


A,B 


0114 




raiz 




0115 




POSH 


B 


0116 




Wl . 


B,12: 


0117 




CBM-^ 


OOTPR 


0118 




POP 


B 


0119 




MOV 


A,B 


0120 




RET 




0121 


* 






0122 




0K3 


lOLOC- 


0123 


* 






0124 


OUTFL 


DB, ■ 





0125 


LNCNT 


DB 


56 


0126 


* 







; RETURN IF LESS THAN A PAGE 



;IP FULL PAGE, SEND FORMFEED 



fAND RETURN 



J PRINTER FLAG ' 
I LINE COUNTER 



SYMBOL TABLE 



CHK8 2940 
ITALF 29E4 
OOTPL 29FE 



CTLP 29 7F 
LNCNT 29FF 
OOTPR 29C0 



INS -2960 
MAKES 2989 
REINT 2900 



INia 
M20S 



2910 
2028 



lOLOC 2900 
0OT8 2990 



\ X^. iv„x 



■iJ 



■rkiaii''.;-' ?" '■- 



29 



2900 

2.90ft . 

2900 

2900 

29am'.. 

2900 

2900 

2900 

2900 

2900 

2900 

2900 

2903 

2906 

2906 

2906 

2906 

2906 

2910 

2910 

2911 

2913 

2915 

2917 

2919 

291B 

291D 

291F 

2921 

2923 

2924 

2924 

2924 

2924 

2924 

2940 

2940 

2943 

2945 

2946 

2948 

2949 

294C 

294E 

294F 

294F 

294F 

294F 

294F 

2960 

2960 

2963 

2966 



Ji''^ , HC 



CD 
C3 



10 29 
28 20 



AF 
D3 
D3 
D3 
3E 
D3 
3E 
D3 
3E 
D3 
C9 



03 
03 
03 
40 
03 
CE 
03 
27 
03 



CD 

C8 

FE 
CO 
CD 
FE 
C9 



DC CO 
03 

20 

60 29 
03 



CD 
CA 

FE 



2968 CC 



DC CO 
60 29 

5F 
89 29 



0001 
O002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 

0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0028 
0029 
0030 
0031 
0032 
0033 
0034 
0035 
0036 
0037 
0038 
0039 
0040 
0041 
0042 
0043 
0044 
0045 
0046 
0047 
0048 
0049 
0050 
0051 
0052 
0053 
0054 



* MZOS SBRIM. i/d SYSTEM 

* NIALE BRASSEM. [15-DEC-78]' 

* -J r , . ; ' 

lOLOC BQD'^ 290<rtl 
MZOS 'IQO'- 2D2eH 



* THIS DOES AN IHIT, THEN JUMPS TO MZOS 

* 

'■ . oms ■ lofeoc ■■ 

* * V ■;, ■ ; 

REENT CALL INI& -" .■■•' *-• 

JMP MZOS -■" •- ^-^ 

* 

* THIS IS THE INIT ROUTINE 

^- •• 0B3 - IOLOC+1'6 i-'- '■•■■'-■'- '-' ' " 



6 f- ;-■:. 



OS '*■• V I 



■T^TlV C'-X.- 



'B ". "T ^ "' -^"C.' ^. --J- 



INI8 



XRA 


A •■'^•'- 


OUT 


3 


OOT? 


3 


OUT 


3 


MVI 


A,40H 


OUT 


3 


M^ 


A,OCEH 


OUT 


3 


MVI 


A,27H 


OUT 


3 


RET 








* 

* THIS CHECKS FOR <©C> , AND SUSPENDS OUTPUT ON <SPACE> 

* 

ORG IOIiOC+64 

* 

CHK8 CALL OCODCH 
CMPR CPI 3 

RZ 

CPI 32 

RNZ 

CALL INS 

CPI 3 

RET 



* CONSOLE INPUT - <©P> & <©L> ARE HANDLED SPECIALLY 

* 



ORG 



IOLOC+96 



IN8 CALL OCODCH 

JZ IN8 

CPI 5FH 

CZ MAKE8 



;GET CHARACTER 



30 



296B PE 7P 




296D CC 89 


29 


2970 PE 10 




2972 CA 7P 


29 


2975 PE OC 




2977 CO 




2978 47 




2979 CD CO 


29 


297C C3 60 


29 


297P 3A PE 


29 


2982 2P 




2983 32 PE 


29 


2986 C3 60 


29 


2989 3E 08 




298B C9 




298c 




298C 




298C 




298C 




298C 




2990 




2990 PE 01 




2992 CA CO 


29 


2995 78 




2996 CD 98 


CO 


2999 3A Fl 


29 


299C B7 




299D 78 




299E C8 




299P C3 CO 


29 


29A2 




29A2 




29A2 




29A2 




29A2 




29A2 




29C0 




29C0 DB 03 




29C2 E6 01 




29C4 CA CO 


29 


29C7 78 




29C8 D3 02 




29CA PE OA 




29CC CA D9 


29 


29CF PE OC 




29D1 CO 




29D2 3E 38 




29D4 32 PP 


29 


29D7 78 




29D8 C9 




29D9 3A PP 


29 


29DC 3D 




29DD 32 PF 


29 


29E0 78 




29E1 CO 




29E2 C5 





0055 

0056 

0057 

0058 

0059 

0060 

0061 

0062 

0063 

0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 

0078 

0079 

0080 

0081 

0082 

0083 

0084 

0085 

0086 

0087 

0088 

0089 

0090 

0091 

0092 

0093 

0094 

0095 

0096 

0097 

0098 

0099 

0100 

0101 

0102 

0103 

0104 

0105 

0106 

0107 

0108 

0109 

0110 



CPl 7PH 

CZ MAKE8 

CPI 16 

JZ CTIi? 

CPI 12 

RNZ 

. ,„MOV B,A 

CfiLL OOTPR 

JMP INS ,, 

CTLP LDA OOTFL , 

CMA 

STA OOTFL 

JMP IN8 

MAKES mi A, 8 

* 

* OtitfOT CHARACTER - IP A=1 , THEN USE PRINTER 



CONVERT DEL S USCORB TO, BS 

SEE IP ©P ■ ■. ^ 

SEE IP ©L 
PITURN IP NOT 

SEND FORMFEED 

DISCARD CHARACTER - -. ; . 



®P COMPLIMENTS PRINTER FLAG 
AND DISCARD CHARACTER 



0OT8 



0B3 IOLOC+144 

CPI 1 

JZ ODTPR 

M3V A,B 

CALL 0C098H 

LDA OOTFL 

ORA A 

MDV A,B 

RZ 

JMP ODTPR 



IIP A»1 THEN OSE PRINTER 

I SEND CHARACTER TO CONSOLE 

I CHECK PRINTER FLAG 

J RETURN IF NOT SET 

J SEND TO PRINTER IP SET 



* SERIAL PRINTER OOTPDT ROUTINE 

* (Try, DEOmiTER, TISIO, ETC.) 



0RC3 

* 

ODTPR IN 
ANI 
JZ 
MOV 
ODT 
CPI 
JZ 
CPI 
RNZ 
MVI 



IOLOC+192 

3 

1 

ODTPR 

A,B 

2 

10 

ITALP 

12 



A, 56 
STA LNCNT 
mv A,B 



RET 

ITALF LDA 

DCR 



LNCNT 
A 



I WRIT FOR READY FROM OSART 

iSEND CHARACTER 
J SEE IP LINEFEED 

;SEE IF FORMFEED 
I RETURN IP NOT 

; RESET PAGE COUNTER ON FORMFEED 



; ADJUST LINE COUNTER 



STA LNCNT 

MOV A,B 
RNZ 

PUSH B 



31 



29E3 06 OC 
29BS db' e'O '29^ 
29E8 CI 
29E9 78 
29EA C9 
291B 
29EB 

29FE 00 "• "" ~ 
29PP 38 
2A00 

SYMBOL lifflBF- 



0111 




MVI 


B,12 


« <)112 




caTif, 


OU'i'PR 


0113 




POP 


b' _ I 


0114 




Hoy; 


A,B' 


0115 




RET' 




-0116 


* 






0117 




0^' 


lOLOC- 


'■t3l18 


* 


^ - ' ' ' „' 


-"" ■■ - 


' 1 19 


OUTFL 


db' 


0"' ' " 


0120 


IMCST 


'"db -' 


56 


0121 


* 




f* ' . 



I PRINTER FLAG 
1 1. INS CXJONTER 



CHK8 2940 C3MPR 2943 CTLP 297F 

lOIiOC 2900 ITALF 29d9 IJJC3JT 29PF 

0DT8 2990 OOTSl. 29PE OOTPR 29C0 



1N8 2960 
MAKES 2989 
REENT,2900 



.INI8 2910 
W20S 2028 






.t ; ^^7: x^ 






■ c;c ^ 



i. J 



fi", ■rooc 



<• r i-- '^ 









?£ cc 






to 



^".-> " ^ "i'SiS Jy' 






•t- ■■ 



